HyperLib 1997 Winter - Disc 1/HYPERLIB-1997-Winter-CD1.ISO.7z/HYPERLIB-1997-Winter-CD1.ISO/オンラインウェア/BUS/TMCM Software and Labs.sit/Software for TMCM 7_95/Files for Lab 9/Other Examples/random arcs

Text File | 1994-05-10 | 163b | 7 lines

{A cute random walk.}

loop
   arc(0.5,90*(randomint(5-3)))
   face(90*randomint(4))
   exit if xcoord > 30 or xcoord < -30 or ycoord > 30 or ycoord < -30
end loop